﻿<!-- #include file="../Include/Admin_Onlogin.asp" -->
<%
ChannelID = Cint(Request("ChannelID"))
If ChannelID = 0 Then ChannelID = 1
Response.Write "<!DOCTYPE html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>生成标签管理</title>" & vbCrlf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
Response.Write "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
Response.Write "<meta name='format-detection' content='telephone=no'>" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../fonts/font-awesome/css/font-awesome.min.css"" />" & vbCrLf
Response.Write "<link href='../Plugins/layui/css/layui.css' rel='stylesheet' type='text/css' />" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/global.css"" media=""all"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/font.css"" media=""all"">" & vbCrLf
Response.Write "<script type='text/javascript'>" & vbCrLf
Response.Write "var pc_file = '" & InstallDir & "';" & vbCrLf
Response.Write "var admin_file = '" & AdminFolder & "/';" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Js/Admin.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/main.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcore.min.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcalendar.min.js'></script>" & vbCrLf
Response.Write "<script language=""JavaScript"" type=""text/JavaScript"">" & vbCrlf
Response.Write "function ok()" & vbCrlf
Response.Write "{" & vbCrlf
If Trim(Action)="" Then
	Response.Write "if(navigator.appName==""Microsoft Internet Explorer"")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "document.getElementById('label').focus();" & vbCrlf
	Response.Write "var text=document.selection.createRange().text;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "else" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "var text=document.getElementById('label').value.substring(document.getElementById('label').selectionStart,document.getElementById('label').selectionEnd)" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "document.getElementById('SkinCode').value=text;" & vbCrlf
End If
If Trim(Action)="List" Then
	Response.Write "if(document.myform.ClassID.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""" & ChannelTit & "栏目不能指定外部栏目！"",""ClassID"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.MaxListNum.value=="""" || isNaN(document.myform.MaxListNum.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""显示" & ChannelTit & "列表数不能为空或不是数字！"",""MaxListNum"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TitleMaxLen.value=="""" || isNaN(document.myform.TitleMaxLen.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""标题名称最多字符数不能为空或不是数字！"",""TitleMaxLen"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.StyleName.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""列表样式名称不能为空！"",""StyleName"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "var strCode;" & vbCrlf
	Response.Write "strCode=""<!--{$ReadChannelList("";"
	Response.Write "strCode+=document.myform.ChannelID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ClassID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.MaxListNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.PerRowNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleMaxLen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ShowClass.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ShowPic.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.IsPic.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ShowDate.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.DateMode.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.newindow.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.StyleName.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.OrderType.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Marquee.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Direction.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Step.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Width.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Height.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Timer.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.DelayTime.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.WaitTime.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ScrollStep.value" & vbCrlf
	Response.Write "strCode+="")}-->"";" & vbCrlf
	Response.Write "document.myform.SkinCode.value=strCode;" & vbCrlf
ElseIf Trim(Action)="Image" Then
	Response.Write "if(document.myform.ClassID.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""" & ChannelTit & "栏目不能指定外部栏目！"",""ClassID"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.MaxPicNum.value=="""" || isNaN(document.myform.MaxPicNum.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""显示" & ChannelTit & "图片数不能为空或不是数字！"",""MaxPicNum"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TitleMaxLen.value=="""" || isNaN(document.myform.TitleMaxLen.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""标题名称最多字符数不能为空或不是数字！"",""TitleMaxLen"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "var strCode;" & vbCrlf
	Response.Write "strCode=""<!--{$ReadChannelPic("";"
	Response.Write "strCode+=document.myform.ChannelID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ClassID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.MaxPicNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.PerRowNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleMaxLen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.newindow.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.picwidth.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.picheight.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.showtopic.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.OrderType.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Marquee.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Direction.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Step.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Width.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Height.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Timer.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.DelayTime.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.WaitTime.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ScrollStep.value" & vbCrlf
	Response.Write "strCode+="")}-->"";" & vbCrlf
	Response.Write "document.myform.SkinCode.value=strCode;" & vbCrlf
ElseIf Trim(Action)="Flash" Then
	Response.Write "if(document.myform.ClassID.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""" & ChannelTit & "栏目不能指定外部栏目！"",""ClassID"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TopNum.value=="""" || isNaN(document.myform.TopNum.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""显示" & ChannelTit & "图片数不能为空或不是数字！"",""TopNum"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TitleMaxLen.value=="""" || isNaN(document.myform.TitleMaxLen.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""标题名称最多字符数不能为空或不是数字！"",""TitleMaxLen"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "var strCode;" & vbCrlf
	Response.Write "strCode=""<!--{$ReadChannelFlash("";"
	Response.Write "strCode+=document.myform.ChannelID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ClassID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TopNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleMaxLen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Width.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Heitht.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleBgAlpha.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleBgPosition.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Tween.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.AutoPlayTime.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.WinOpen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleTextColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleBgColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.BtnDefaultColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.BtnOverColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.OrderType.value" & vbCrlf
	Response.Write "strCode+="")}-->"";" & vbCrlf
	Response.Write "document.myform.SkinCode.value=strCode;" & vbCrlf
ElseIf Trim(Action)="Flashqq" Then
	Response.Write "if(document.myform.ClassID.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""" & ChannelTit & "栏目不能指定外部栏目！"",""ClassID"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TopNum.value=="""" || isNaN(document.myform.TopNum.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""显示" & ChannelTit & "图片数不能为空或不是数字！"",""TopNum"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TitleMaxLen.value=="""" || isNaN(document.myform.TitleMaxLen.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""标题名称最多字符数不能为空或不是数字！"",""TitleMaxLen"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "var strCode;" & vbCrlf
	Response.Write "strCode=""<!--{$ReadChannelFlashqq("";"
	Response.Write "strCode+=document.myform.ChannelID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ClassID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TopNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleMaxLen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Width.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Heitht.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Times.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Sizes.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.IsBold.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TxtColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TxtLeft.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.UmColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.NubTouMing.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.HoverTouMing.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.BtnBg.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.BgNub.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.HoverColor.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Rname.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.Rlink.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.OrderType.value" & vbCrlf
	Response.Write "strCode+="")}-->"";" & vbCrlf
	Response.Write "document.myform.SkinCode.value=strCode;" & vbCrlf
ElseIf Trim(Action)="Class" Then
	Response.Write "if(document.myform.ClassID.value=="""")" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""" & ChannelTit & "栏目不能指定外部栏目！"",""ClassID"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TopNum.value=="""" || isNaN(document.myform.TopNum.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""显示" & ChannelTit & "栏目数不能为空或不是数字！"",""TopNum"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "if(document.myform.TitleMaxLen.value=="""" || isNaN(document.myform.TitleMaxLen.value))" & vbCrlf
	Response.Write "{" & vbCrlf
	Response.Write "IsAlertFocus(""标题名称最多字符数不能为空或不是数字！"",""TitleMaxLen"");" & vbCrlf
	Response.Write "return false;" & vbCrlf
	Response.Write "}" & vbCrlf
	Response.Write "var strCode;" & vbCrlf
	Response.Write "strCode=""<!--{$ReadClass("";"
	Response.Write "strCode+=document.myform.ChannelID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.ClassID.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TopNum.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.TitleMaxLen.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.newindow.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.StyleName.value+"",""" & vbCrlf
	Response.Write "strCode+=document.myform.OrderType.value" & vbCrlf
	Response.Write "strCode+="")}-->"";" & vbCrlf
	Response.Write "document.myform.SkinCode.value=strCode;" & vbCrlf
End If
Response.Write "}" & vbCrlf
Response.Write "</script>" & vbCrlf
Response.Write "</head>" & vbCrlf
Response.Write "<body>" & vbCrlf
Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrLf
Response.Write "<input type='hidden' name='Action' id='Action' value='" & Action & "'>" & vbCrlf
Select Case Action
Case "List"
	Call Label_ContentList
Case "Image"
	Call Label_ImageUse
Case "Flash"
	Call Label_FlashUse
Case "Flashqq"
	Call Label_FlashqqUse
Case "Class"
	Call Label_ClassUse
Case Else
	Call ShowMain
End Select
Response.Write "</div>" & vbCrLf
Response.Write "</body>" & vbCrlf
Response.Write "</html>"
Call CloseConn()

Private Sub ShowMain()
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td><strong>常用模板标签(注意大小写)</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td><textarea id=""label"" name=""label"" style=""width:100%;height:280px;color:highlight;font-weight:bold;"">系统常用配置标签" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$InstallDir}&nbsp;&nbsp;&nbsp;&nbsp;系统路径" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SkinDir}&nbsp;&nbsp;&nbsp;&nbsp;系统皮肤路径" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$DefaultSkin}&nbsp;&nbsp;&nbsp;&nbsp;系统默认皮肤" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$TemplateDir}&nbsp;&nbsp;&nbsp;&nbsp;系统模板路径" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$IndexFile}&nbsp;&nbsp;&nbsp;&nbsp;默认导页文件名" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$IndexShow}&nbsp;&nbsp;&nbsp;&nbsp;默认首页文件名" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteName}&nbsp;&nbsp;&nbsp;&nbsp;网站名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteTitle}&nbsp;&nbsp;&nbsp;&nbsp;网站标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteUrl}&nbsp;&nbsp;&nbsp;&nbsp;网站网址" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ShowPath}&nbsp;&nbsp;&nbsp;&nbsp;您的位置" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteKeywords}&nbsp;&nbsp;&nbsp;&nbsp;网站META关键词" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteDescription}&nbsp;&nbsp;&nbsp;&nbsp;网站META网页描述" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteAuthor}&nbsp;&nbsp;&nbsp;&nbsp;网站作者" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SiteCopyRight}&nbsp;&nbsp;&nbsp;&nbsp;网站版权" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$LogoUrl}&nbsp;&nbsp;&nbsp;&nbsp;LOGO地址" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$LogoWidth}&nbsp;&nbsp;&nbsp;&nbsp;LOGO宽度" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$LogoHeight}&nbsp;&nbsp;&nbsp;&nbsp;LOGO高度" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$AdminFolder}&nbsp;&nbsp;&nbsp;&nbsp;后台目录" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$upload_dir}&nbsp;&nbsp;&nbsp;&nbsp;系统上传路径" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$web_email}&nbsp;&nbsp;&nbsp;&nbsp;管理员E-Meil（在网站设置修改）" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$web_br}&nbsp;&nbsp;&nbsp;&nbsp;系统换行符" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "系统模型首页配置标签" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelID}&nbsp;&nbsp;&nbsp;&nbsp;模型ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelName}&nbsp;&nbsp;&nbsp;&nbsp;模型名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelTit}&nbsp;&nbsp;&nbsp;&nbsp;模型简称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelDir}&nbsp;&nbsp;&nbsp;&nbsp;模型目录" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelUnit}&nbsp;&nbsp;&nbsp;&nbsp;模型项目单位" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$more}&nbsp;&nbsp;&nbsp;&nbsp;栏目更多" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassID}&nbsp;&nbsp;&nbsp;&nbsp;栏目ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassName}&nbsp;&nbsp;&nbsp;&nbsp;栏目名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ListNum}&nbsp;&nbsp;&nbsp;&nbsp;首页列表信息显示项目数" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$CuteNum}&nbsp;&nbsp;&nbsp;&nbsp;首页列表信息截断字符数" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "系统模型栏目配置标签" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelID}&nbsp;&nbsp;&nbsp;&nbsp;模型ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelName}&nbsp;&nbsp;&nbsp;&nbsp;模型名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelTit}&nbsp;&nbsp;&nbsp;&nbsp;模型简称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelDir}&nbsp;&nbsp;&nbsp;&nbsp;模型目录" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelUnit}&nbsp;&nbsp;&nbsp;&nbsp;模型项目单位" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$more}&nbsp;&nbsp;&nbsp;&nbsp;栏目更多" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassID}&nbsp;&nbsp;&nbsp;&nbsp;栏目ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassUrl}&nbsp;&nbsp;&nbsp;&nbsp;栏目链接" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassAlt}&nbsp;&nbsp;&nbsp;&nbsp;栏目提示" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassName}&nbsp;&nbsp;&nbsp;&nbsp;栏目名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$MetaKeyWord}&nbsp;&nbsp;&nbsp;&nbsp;栏目META关键词" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$MetaDescript}&nbsp;&nbsp;&nbsp;&nbsp;栏目META网页描述" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Topic}&nbsp;&nbsp;&nbsp;&nbsp;标题前标" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Title len=10}&nbsp;&nbsp;&nbsp;&nbsp;标题，字数10" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Pic}&nbsp;&nbsp;&nbsp;&nbsp;图片" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$TitleAlt}&nbsp;&nbsp;&nbsp;&nbsp;标题提示" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$TitleUrl}&nbsp;&nbsp;&nbsp;&nbsp;标题链接" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Intro(0)}&nbsp;&nbsp;&nbsp;&nbsp;简介" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Content(0)}&nbsp;&nbsp;&nbsp;&nbsp;内容" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Date style=yy-m-d}&nbsp;&nbsp;&nbsp;&nbsp;时间，样式yy-m-d等于2014-01-01、y-m-d等于14-01-01、m-d等于01-01、yy/m/d等于2014/01/01、y/m/d等于14/01/01、m/d等于01/01" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Hits}&nbsp;&nbsp;&nbsp;&nbsp;点击数" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Keyes}&nbsp;&nbsp;&nbsp;&nbsp;关键字" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Inputer}&nbsp;&nbsp;&nbsp;&nbsp;录入者" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Author}&nbsp;&nbsp;&nbsp;&nbsp;作者" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Subtitle}&nbsp;&nbsp;&nbsp;&nbsp;完整标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Subheading}&nbsp;&nbsp;&nbsp;&nbsp;副标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$CopyFrom}&nbsp;&nbsp;&nbsp;&nbsp;来源" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ShowPage}&nbsp;&nbsp;&nbsp;&nbsp;分页" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "系统模型浏览配置标签" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelID}&nbsp;&nbsp;&nbsp;&nbsp;模型ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelName}&nbsp;&nbsp;&nbsp;&nbsp;模型名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelTit}&nbsp;&nbsp;&nbsp;&nbsp;模型简称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelDir}&nbsp;&nbsp;&nbsp;&nbsp;模型目录" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ChannelUnit}&nbsp;&nbsp;&nbsp;&nbsp;模型项目单位" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassID}&nbsp;&nbsp;&nbsp;&nbsp;栏目ID" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassUrl}&nbsp;&nbsp;&nbsp;&nbsp;栏目链接" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassAlt}&nbsp;&nbsp;&nbsp;&nbsp;栏目提示" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ClassName}&nbsp;&nbsp;&nbsp;&nbsp;栏目名称" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Topic}&nbsp;&nbsp;&nbsp;&nbsp;标题前标" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Title len=10}&nbsp;&nbsp;&nbsp;&nbsp;标题，字数10" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SEOTitle}&nbsp;&nbsp;&nbsp;&nbsp;内容SEO标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SEOKeyWord}&nbsp;&nbsp;&nbsp;&nbsp;内容META关键词" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$SEODescript}&nbsp;&nbsp;&nbsp;&nbsp;内容META网页描述" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Pic}&nbsp;&nbsp;&nbsp;&nbsp;图片" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$ViewPhoto(600, 0, False)}&nbsp;&nbsp;&nbsp;&nbsp;图片浏览(宽度, 高度, 显示文字)" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$PhotoUrlList(1, 130, 0, 5, 5)}&nbsp;&nbsp;&nbsp;&nbsp;图片浏览分页(显示文字或图片, 宽度, 高度, 每行几个, 每页几个)" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$PhotoUrl}&nbsp;&nbsp;&nbsp;&nbsp;第一个图片可有可无" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$GetUrlArray}&nbsp;&nbsp;&nbsp;&nbsp;图片Js可有可无" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$TitleAlt}&nbsp;&nbsp;&nbsp;&nbsp;标题提示" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$TitleUrl}&nbsp;&nbsp;&nbsp;&nbsp;标题链接" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Intro}&nbsp;&nbsp;&nbsp;&nbsp;简介" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Content}&nbsp;&nbsp;&nbsp;&nbsp;内容" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Date style=yy-m-d}&nbsp;&nbsp;&nbsp;&nbsp;时间，样式yy-m-d等于2014-01-01、y-m-d等于14-01-01、m-d等于01-01、yy/m/d等于2014/01/01、y/m/d等于14/01/01、m/d等于01/01" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Hits}&nbsp;&nbsp;&nbsp;&nbsp;点击数" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Keyes}&nbsp;&nbsp;&nbsp;&nbsp;关键字" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Inputer}&nbsp;&nbsp;&nbsp;&nbsp;录入者" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Author}&nbsp;&nbsp;&nbsp;&nbsp;作者" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Subtitle}&nbsp;&nbsp;&nbsp;&nbsp;完整标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$Subheading}&nbsp;&nbsp;&nbsp;&nbsp;副标题" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$CopyFrom}&nbsp;&nbsp;&nbsp;&nbsp;来源" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$About_Up}&nbsp;&nbsp;&nbsp;&nbsp;上一篇" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "{$About_Down}&nbsp;&nbsp;&nbsp;&nbsp;下一篇" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "辅助模板" & vbCrlf
	Response.Write "{wangkaicms:template src=left.html}" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "内容列表调用循环标签" & vbCrlf
	Response.Write "{wangkaicms:content channel=1 dataname=Article sort=1 num=10 order=order}" & vbCrlf
	Response.Write "	[content:title len=10]标题，字数10" & vbCrlf
	Response.Write "	[content:titlecolor]标题颜色" & vbCrlf
	Response.Write "	[content:content len=100]内容，字数100" & vbCrlf
	Response.Write "	[content:link]链接" & vbCrlf
	Response.Write "	[content:i]计数" & vbCrlf
	Response.Write "	[content:classname]栏目名称" & vbCrlf
	Response.Write "	[content:classlink]栏目链接" & vbCrlf
	Response.Write "	[content:date style=yy-m-d]日期，样式yy-m-d等于2014-01-01、y-m-d等于14-01-01、m-d等于01-01、yy/m/d等于2014/01/01、y/m/d等于14/01/01、m/d等于01/01" & vbCrlf
	Response.Write "	[content:hits]浏览次数" & vbCrlf
	Response.Write "	[content:dayhits]本日下载次数" & vbCrlf
	Response.Write "	[content:weekhits]本周下载次数" & vbCrlf
	Response.Write "	[content:monthhits]本月下载次数" & vbCrlf
	Response.Write "	[content:downhits]下载次数" & vbCrlf
	Response.Write "	[content:softversion]软件版本" & vbCrlf
	Response.Write "	[content:softsize]软件大小" & vbCrlf
	Response.Write "	[content:softsizem]软件大小" & vbCrlf
	Response.Write "	[content:copyrighttype]授权形式" & vbCrlf
	Response.Write "	[content:operatingsystem]软件平台" & vbCrlf
	Response.Write "	[content:softtype]软件类别" & vbCrlf
	Response.Write "	[content:softlanguage]软件语言" & vbCrlf
	Response.Write "	[content:demourl]软件演示地址" & vbCrlf
	Response.Write "	[content:regurl]软件注册地址" & vbCrlf
	Response.Write "	[content:decompresspassword]解压密码" & vbCrlf
	Response.Write "	[content:author]作者" & vbCrlf
	Response.Write "	[content:copyfrom]来源" & vbCrlf
	Response.Write "	[content:ispic]是否图片" & vbCrlf
	Response.Write "	[content:desc]描述" & vbCrlf
	Response.Write "	[content:pic]图片" & vbCrlf
	Response.Write "{/wangkaicms:content}" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "列表调用循环标签带分页" & vbCrlf
	Response.Write "{wangkaicms:list size=20 sort=1 order=order}" & vbCrlf
	Response.Write "	[list:title len=10]标题，字数10" & vbCrlf
	Response.Write "	[list:titlecolor]标题颜色" & vbCrlf
	Response.Write "	[list:content len=100]内容，字数100" & vbCrlf
	Response.Write "	[list:link]链接" & vbCrlf
	Response.Write "	[list:i]计数" & vbCrlf
	Response.Write "	[list:classname]栏目名称" & vbCrlf
	Response.Write "	[list:classlink]栏目链接" & vbCrlf
	Response.Write "	[list:date style=yy-m-d]日期，样式yy-m-d等于2014-01-01、y-m-d等于14-01-01、m-d等于01-01、yy/m/d等于2014/01/01、y/m/d等于14/01/01、m/d等于01/01" & vbCrlf
	Response.Write "	[list:hits]浏览次数" & vbCrlf
	Response.Write "	[list:dayhits]本日下载次数" & vbCrlf
	Response.Write "	[list:weekhits]本周下载次数" & vbCrlf
	Response.Write "	[list:monthhits]本月下载次数" & vbCrlf
	Response.Write "	[list:downhits]下载次数" & vbCrlf
	Response.Write "	[list:softversion]软件版本" & vbCrlf
	Response.Write "	[list:softsize]软件大小" & vbCrlf
	Response.Write "	[list:softsizem]软件大小" & vbCrlf
	Response.Write "	[list:copyrighttype]授权形式" & vbCrlf
	Response.Write "	[list:operatingsystem]软件平台" & vbCrlf
	Response.Write "	[list:softtype]软件类别" & vbCrlf
	Response.Write "	[list:softlanguage]软件语言" & vbCrlf
	Response.Write "	[list:demourl]软件演示地址" & vbCrlf
	Response.Write "	[list:regurl]软件注册地址" & vbCrlf
	Response.Write "	[list:decompresspassword]解压密码" & vbCrlf
	Response.Write "	[list:author]作者" & vbCrlf
	Response.Write "	[list:copyfrom]来源" & vbCrlf
	Response.Write "	[list:ispic]是否图片" & vbCrlf
	Response.Write "	[list:desc]描述" & vbCrlf
	Response.Write "	[list:pic]图片" & vbCrlf
	Response.Write "{/wangkaicms:list}" & vbCrlf
	Response.Write "<!--分页标签-->" & vbCrlf
	Response.Write "[list:pagenumber len=5]" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "Sql语句列表调用循环标签" & vbCrlf
	Response.Write "{wangkaicms:sql cmd=""select top 10 * from Article order by ID desc""}" & vbCrlf
	Response.Write "	[wangkaicms:title len=10]标题，字数10" & vbCrlf
	Response.Write "	[wangkaicms:titlecolor]标题颜色" & vbCrlf
	Response.Write "	[wangkaicms:content len=100]内容，字数100" & vbCrlf
	Response.Write "	[wangkaicms:link]链接" & vbCrlf
	Response.Write "	[wangkaicms:i]计数" & vbCrlf
	Response.Write "	[wangkaicms:classname]栏目名称" & vbCrlf
	Response.Write "	[wangkaicms:classlink]栏目链接" & vbCrlf
	Response.Write "	[wangkaicms:date style=yy-m-d]日期，样式yy-m-d等于2014-01-01、y-m-d等于14-01-01、m-d等于01-01、yy/m/d等于2014/01/01、y/m/d等于14/01/01、m/d等于01/01" & vbCrlf
	Response.Write "	[wangkaicms:hits]浏览次数" & vbCrlf
	Response.Write "	[wangkaicms:dayhits]本日下载次数" & vbCrlf
	Response.Write "	[wangkaicms:weekhits]本周下载次数" & vbCrlf
	Response.Write "	[wangkaicms:monthhits]本月下载次数" & vbCrlf
	Response.Write "	[wangkaicms:downhits]下载次数" & vbCrlf
	Response.Write "	[wangkaicms:softversion]软件版本" & vbCrlf
	Response.Write "	[wangkaicms:softsize]软件大小" & vbCrlf
	Response.Write "	[wangkaicms:softsizem]软件大小" & vbCrlf
	Response.Write "	[wangkaicms:copyrighttype]授权形式" & vbCrlf
	Response.Write "	[wangkaicms:operatingsystem]软件平台" & vbCrlf
	Response.Write "	[wangkaicms:softtype]软件类别" & vbCrlf
	Response.Write "	[wangkaicms:softlanguage]软件语言" & vbCrlf
	Response.Write "	[wangkaicms:demourl]软件演示地址" & vbCrlf
	Response.Write "	[wangkaicms:regurl]软件注册地址" & vbCrlf
	Response.Write "	[wangkaicms:decompresspassword]解压密码" & vbCrlf
	Response.Write "	[wangkaicms:author]作者" & vbCrlf
	Response.Write "	[wangkaicms:copyfrom]来源" & vbCrlf
	Response.Write "	[wangkaicms:ispic]是否图片" & vbCrlf
	Response.Write "	[wangkaicms:desc]描述" & vbCrlf
	Response.Write "	[wangkaicms:pic]图片" & vbCrlf
	Response.Write "{/wangkaicms}" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "多图片的处理" & vbCrlf
	Response.Write "频道页 channel=1 可以删除" & vbCrlf
	Response.Write "{wangkaicms:cimages channel=1 count=5 contentid=1}" & vbCrlf
	Response.Write "	[cimages:i] 计数" & vbCrlf
	Response.Write "	[cimages:src]图片地址" & vbCrlf
	Response.Write "	[cimages:title]图片名称" & vbCrlf
	Response.Write "{/wangkaicms:cimages}" & vbCrlf
	Response.Write "-------------------------------------------------------------------------------------------" & vbCrlf
	Response.Write "IF标签使用" & vbCrlf
	Response.Write "1、满足条件则显示" & vbCrlf
	Response.Write "{if:条件语句}" & vbCrlf
	Response.Write "	显示内容" & vbCrlf
	Response.Write "{end if}" & vbCrlf
	Response.Write "2、满足条件则显示内容1，否则显示内容2" & vbCrlf
	Response.Write "{if:条件语句}" & vbCrlf
	Response.Write "	显示内容1" & vbCrlf
	Response.Write "{else}" & vbCrlf
	Response.Write "	显示内容2" & vbCrlf
	Response.Write "{end if}" & vbCrlf
	Response.Write "实例：" & vbCrlf
	Response.Write "1,给满足条件的添加不同的样式" & vbCrlf
	Response.Write "{wangkaicms:content}" & vbCrlf
	Response.Write "	<a {if:[content:i]=1} style=""...""{end if} href=""[content:link]"">[content:title]</a>	" & vbCrlf
	Response.Write "{/wangkaicms:content}"
	Response.Write "</textarea><input type='hidden' name='SkinCode' size='50' id='SkinCode'></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>更多等待更新中...</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td height=30><strong>请选中以上标签点确定插到模板相应的位置</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
End Sub

Private Sub Label_ContentList()
	Response.Write "<form action=""?Action=List&type=" & Trim(Request("type")) & """ method=""post"" name=""myform"" id=""myform"">" & vbCrlf
	Response.Write "<input type='hidden' name='SkinCode' size='50' id='SkinCode'>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td colspan=""2""><strong>生成" & ChannelTit & "模板标签</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td width=""140"" align=""right"">所属模型：</td>" & vbCrlf
	Response.Write "<td><div id=""ChannelID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""ChannelID"" name=""ChannelID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" onchange=""javascript:submit()"" value=""" & ChannelID & """ startvalue=""" & ChannelID & """/><input type=""text"" id=""ChannelID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""ChannelID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ChannelID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ChannelID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ChannelID_Init=function(){var _el=Zving.getDom('ChannelID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Call Exec(Rs,"Select ChannelID,ChannelName from Channel where ChannelType<=1 And ChannelHidden=" & WK_False & " Order By ChannelOrder Asc,ChannelID Desc",2)
	Do While Not Rs.EOF
		Response.Write "_data.push(['" & Rs("ChannelID") & "','" & Rs("ChannelName") & "']);"
		Rs.movenext
	Loop
	Set Rs = Nothing
	Response.Write "var combox_ChannelID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ChannelID_Init();}else{Zving.Page.onReady(Combox_ChannelID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">所属栏目：</td>" & vbCrlf
	Response.Write "<td><div id=""ClassID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""ClassID"" name=""ClassID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""ClassID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""ClassID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ClassID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ClassID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ClassID_Init=function(){var _el=Zving.getDom('ClassID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['0','所有" & ChannelTit & "栏目']);"
	Dim sql3,rs3,n_id,chi
	sql3="Select ClassID,ClassName,ClassParent,ClassParentStr,ClassDepth,ClassChild,AClassID from Class Where ChannelID=" & ChannelID & " and ClassParent=0 Order By ClassOrder Asc,ClassID Asc"
	Call Exec(Rs3,sql3,2)
	Do While Not Rs3.Eof
		n_id=Int(Rs3(0))
		If Int(Rs3(2))=0 Then
			Response.Write "_data.push(['" & n_id & "','" & rs3(1) & "']);"
		Else
			Response.Write "_data.push(['" & n_id & "','"
			For chi=1 To Int(rs3(4))-1
			Response.Write "│"
			Next
			Response.Write "├" & rs3(1) & "']);"
		End If
		Response.Write jsSubClass(ChannelID, n_id)
		Rs3.Movenext
	Loop
	Rs3.Close:Set Rs3=Nothing
	Response.Write "var combox_ClassID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ClassID_Init();}else{Zving.Page.onReady(Combox_ClassID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">显示" & ChannelTit & "列表数：</td>" & vbCrlf
	Response.Write "<td><input name=""MaxListNum"" type=""text"" id=""MaxListNum"" value=""12"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">每行显示多少个：</td>" & vbCrlf
	Response.Write "<td><input name=""PerRowNum"" type=""text"" id=""PerRowNum"" value=""1"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">标题名称最多字符数：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleMaxLen"" type=""text"" id=""TitleMaxLen"" value=""30"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否显示栏目名称：</td>" & vbCrlf
	Response.Write "<td><div id=""ShowClass_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:120px;""><input type=""text"" ztype=""select"" id=""ShowClass"" name=""ShowClass"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:120px;position:absolute;z-index:-1;"" value="""" startvalue=""""/><input type=""text"" id=""ShowClass_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:120px;"" /><a id=""ShowClass_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ShowClass_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ShowClass_ul"" style=""left:-1px; width:-1px;""><script>Combox_ShowClass_Init=function(){var _el=Zving.getDom('ShowClass');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['0','不显示栏目名称']);_data.push(['1','显示栏目名称']);var combox_ShowClass = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ShowClass_Init();}else{Zving.Page.onReady(Combox_ShowClass_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否显示图文标题：</td>" & vbCrlf
	Response.Write "<td><div id=""ShowPic_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:120px;""><input type=""text"" ztype=""select"" id=""ShowPic"" name=""ShowPic"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:120px;position:absolute;z-index:-1;"" value="""" startvalue=""""/><input type=""text"" id=""ShowPic_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:120px;"" /><a id=""ShowPic_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ShowPic_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ShowPic_ul"" style=""left:-1px; width:-1px;""><script>Combox_ShowPic_Init=function(){var _el=Zving.getDom('ShowPic');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','显示图文标题']);_data.push(['0','不显示图文标题']);var combox_ShowPic = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ShowPic_Init();}else{Zving.Page.onReady(Combox_ShowPic_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否显示图前标：</td>" & vbCrlf
	Response.Write "<td><div id=""IsPic_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:120px;""><input type=""text"" ztype=""select"" id=""IsPic"" name=""IsPic"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:120px;position:absolute;z-index:-1;"" value="""" startvalue=""""/><input type=""text"" id=""IsPic_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:120px;"" /><a id=""IsPic_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""IsPic_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""IsPic_ul"" style=""left:-1px; width:-1px;""><script>Combox_IsPic_Init=function(){var _el=Zving.getDom('IsPic');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['0','不显示图前标']);_data.push(['1','显示图前标']);var combox_IsPic = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_IsPic_Init();}else{Zving.Page.onReady(Combox_IsPic_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否显示日期：</td>" & vbCrlf
	Response.Write "<td><div id=""ShowDate_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:120px;""><input type=""text"" ztype=""select"" id=""ShowDate"" name=""ShowDate"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:120px;position:absolute;z-index:-1;"" value="""" startvalue=""""/><input type=""text"" id=""ShowDate_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:120px;"" /><a id=""ShowDate_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ShowDate_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ShowDate_ul"" style=""left:-1px; width:-1px;""><script>Combox_ShowDate_Init=function(){var _el=Zving.getDom('ShowDate');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','显示日期']);_data.push(['0','不显示日期']);var combox_ShowDate = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ShowDate_Init();}else{Zving.Page.onReady(Combox_ShowDate_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">显示日期的格式：</td>" & vbCrlf
	Response.Write "<td><div id=""DateMode_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""DateMode"" name=""DateMode"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""5"" startvalue=""5""/><input type=""text"" id=""DateMode_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""DateMode_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""DateMode_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""DateMode_ul"" style=""left:-1px; width:-1px;""><script>Combox_DateMode_Init=function(){var _el=Zving.getDom('DateMode');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	For i = 1 To 8
		Response.Write "_data.push(['" & i & "','" & Time_Type(Now(),i) & "']);"
	Next
	Response.Write "var combox_DateMode = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_DateMode_Init();}else{Zving.Page.onReady(Combox_DateMode_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否新窗口打开连接：</td>" & vbCrlf
	Response.Write "<td><div id=""newindow_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100px;""><input type=""text"" ztype=""select"" id=""newindow"" name=""newindow"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100px;position:absolute;z-index:-1;"" value=""1"" startvalue=""1""/><input type=""text"" id=""newindow_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100px;"" /><a id=""newindow_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""newindow_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""newindow_ul"" style=""left:-1px; width:-1px;""><script>Combox_newindow_Init=function(){var _el=Zving.getDom('newindow');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','新窗口打开']);_data.push(['0','本窗口打开']);var combox_newindow = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_newindow_Init();}else{Zving.Page.onReady(Combox_newindow_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">列表调用样式名称：</td>" & vbCrlf
	Response.Write "<td><input name=""StyleName"" type=""text"" id=""StyleName"" value=""showlist"" size=""15"" maxlength=""20""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">排序方法：</td>" & vbCrlf
	Response.Write "<td><div id=""OrderType_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""OrderType"" name=""OrderType"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""desc"" startvalue=""desc""/><input type=""text"" id=""OrderType_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""OrderType_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""OrderType_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""OrderType_ul"" style=""left:-1px; width:-1px;""><script>Combox_OrderType_Init=function(){var _el=Zving.getDom('OrderType');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['desc','降序']);_data.push(['asc','升序']);var combox_OrderType = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_OrderType_Init();}else{Zving.Page.onReady(Combox_OrderType_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">动态信息调用：</td>" & vbCrlf
	Response.Write "<td>容器ID：<input name=""Marquee"" type=""text"" size=""20"" maxlength=""20"" value=""marqueediv"">&nbsp;<font color=""#FF0000"">(必选)不可重复</font><br>" & vbCrlf
	Response.Write "滚动方向：<div id=""Direction_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""Direction"" name=""Direction"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""4"" startvalue=""4""/><input type=""text"" id=""Direction_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""Direction_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""Direction_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""Direction_ul"" style=""left:-1px; width:-1px;""><script>Combox_Direction_Init=function(){var _el=Zving.getDom('Direction');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['4','不滚动']);_data.push(['0','向上滚动']);_data.push(['1','向下滚动']);_data.push(['2','向左滚动']);_data.push(['3','向右滚动']);var combox_Direction = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_Direction_Init();}else{Zving.Page.onReady(Combox_Direction_Init);}</script></div></div></div>&nbsp;<font color=""#FF0000"">(可选)可设置的值包括:0,1,2,3,""top"",""bottom"",""left"",""right"" (0向上 1向下 2向左 3向右)</font><br>" & vbCrlf
	Response.Write "滚动的步长：<input name=""Step"" type=""text"" size=""5"" maxlength=""5"" value=""2"">&nbsp;<font color=""#FF0000"">(可选,默认值为2,数值越大,滚动越快)</font><br>" & vbCrlf
	Response.Write "容器可视宽度：<input name=""Width"" type=""text"" size=""5"" maxlength=""5"" value=""360"">&nbsp;<font color=""#FF0000"">(可选,默认值为容器初始设置的宽度)</font><br>" & vbCrlf
	Response.Write "容器可视高度：<input name=""Height"" type=""text"" size=""5"" maxlength=""5"" value=""200"">&nbsp;<font color=""#FF0000"">(可选,默认值为容器初始设置的高度)</font><br>" & vbCrlf
	Response.Write "定时器：<input name=""Timer"" type=""text"" size=""5"" maxlength=""5"" value=""30"">&nbsp;<font color=""#FF0000"">(可选,默认值为30,数值越小,滚动的速度越快,1000=1秒,建议不小于20)</font><br>" & vbCrlf
	Response.Write "间歇停顿延迟时间：<input name=""DelayTime"" type=""text"" size=""5"" maxlength=""5"" value=""0"">&nbsp;<font color=""#FF0000"">(可选,默认为0不停顿,1000=1秒)</font><br>" & vbCrlf
	Response.Write "开始时的等待时间：<input name=""WaitTime"" type=""text"" size=""5"" maxlength=""5"" value=""0"">&nbsp;<font color=""#FF0000"">(可选,默认或0为不等待,1000=1秒)</font><br>" & vbCrlf
	Response.Write "间歇滚动间距：<input name=""ScrollStep"" type=""text"" size=""5"" maxlength=""5"" value=""52"">&nbsp;<font color=""#FF0000"">(可选,默认为翻屏宽/高度,该数值与延迟均为0则为鼠标悬停控制,-1禁止鼠标控制)</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
End Sub

Private Sub Label_ImageUse()
	Response.Write "<form action=""?Action=Image&type=" & Trim(Request("type")) & """ method=""post"" name=""myform"" id=""myform"">" & vbCrlf
	Response.Write "<input type='hidden' name='SkinCode' size='50' id='SkinCode'>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td colspan=""2""><strong>生成" & ChannelTit & "模板图片调用标签</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td width=""140"" align=""right"">所属模型：</td>" & vbCrlf
	Response.Write "<td><div id=""ChannelID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""ChannelID"" name=""ChannelID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" onchange=""javascript:submit()"" value=""" & ChannelID & """ startvalue=""" & ChannelID & """/><input type=""text"" id=""ChannelID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""ChannelID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ChannelID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ChannelID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ChannelID_Init=function(){var _el=Zving.getDom('ChannelID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Call Exec(Rs,"Select ChannelID,ChannelName from Channel where ChannelType<=1 And ChannelHidden=" & WK_False & " Order By ChannelOrder Asc,ChannelID Desc",2)
	Do While Not Rs.EOF
		Response.Write "_data.push(['" & Rs("ChannelID") & "','" & Rs("ChannelName") & "']);"
		Rs.movenext
	Loop
	Set Rs = Nothing
	Response.Write "var combox_ChannelID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ChannelID_Init();}else{Zving.Page.onReady(Combox_ChannelID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">所属栏目：</td>" & vbCrlf
	Response.Write "<td><div id=""ClassID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""ClassID"" name=""ClassID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""ClassID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""ClassID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ClassID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ClassID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ClassID_Init=function(){var _el=Zving.getDom('ClassID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['0','所有" & ChannelTit & "栏目']);"
	Dim sql3,rs3,n_id,chi
	sql3="Select ClassID,ClassName,ClassParent,ClassParentStr,ClassDepth,ClassChild,AClassID from Class Where ChannelID=" & ChannelID & " and ClassParent=0 Order By ClassOrder Asc,ClassID Asc"
	Call Exec(Rs3,sql3,2)
	Do While Not Rs3.Eof
		n_id=Int(Rs3(0))
		If Int(Rs3(2))=0 Then
			Response.Write "_data.push(['" & n_id & "','" & rs3(1) & "']);"
		Else
			Response.Write "_data.push(['" & n_id & "','"
			For chi=1 To Int(rs3(4))-1
			Response.Write "│"
			Next
			Response.Write "├" & rs3(1) & "']);"
		End If
		Response.Write jsSubClass(ChannelID, n_id)
		Rs3.Movenext
	Loop
	Rs3.Close:Set Rs3=Nothing
	Response.Write "var combox_ClassID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ClassID_Init();}else{Zving.Page.onReady(Combox_ClassID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">最多显示多少张图片：</td>" & vbCrlf
	Response.Write "<td><input name=""MaxPicNum"" type=""text"" id=""MaxPicNum"" value=""8"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">每行显示多少张图片：</td>" & vbCrlf
	Response.Write "<td><input name=""PerRowNum"" type=""text"" id=""PerRowNum"" value=""4"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">标题名称最多字符数：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleMaxLen"" type=""text"" id=""TitleMaxLen"" value=""30"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否新窗口打开连接：</td>" & vbCrlf
	Response.Write "<td><div id=""newindow_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100px;""><input type=""text"" ztype=""select"" id=""newindow"" name=""newindow"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100px;position:absolute;z-index:-1;"" value=""1"" startvalue=""1""/><input type=""text"" id=""newindow_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100px;"" /><a id=""newindow_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""newindow_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""newindow_ul"" style=""left:-1px; width:-1px;""><script>Combox_newindow_Init=function(){var _el=Zving.getDom('newindow');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','新窗口打开']);_data.push(['0','本窗口打开']);var combox_newindow = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_newindow_Init();}else{Zving.Page.onReady(Combox_newindow_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的宽度：</td>" & vbCrlf
	Response.Write "<td><input name=""picwidth"" type=""text"" id=""picwidth"" value=""120"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的高度：</td>" & vbCrlf
	Response.Write "<td><input name=""picheight"" type=""text"" id=""picheight"" value=""100"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">是否显示标题名称：</td>" & vbCrlf
	Response.Write "<td><div id=""showtopic_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""showtopic"" name=""showtopic"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value="""" startvalue=""""/><input type=""text"" id=""showtopic_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""showtopic_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""showtopic_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""showtopic_ul"" style=""left:-1px; width:-1px;""><script>Combox_showtopic_Init=function(){var _el=Zving.getDom('showtopic');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','显示']);_data.push(['0','不显示']);var combox_showtopic = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_showtopic_Init();}else{Zving.Page.onReady(Combox_showtopic_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">排序方法：</td>" & vbCrlf
	Response.Write "<td><div id=""OrderType_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""OrderType"" name=""OrderType"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""desc"" startvalue=""desc""/><input type=""text"" id=""OrderType_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""OrderType_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""OrderType_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""OrderType_ul"" style=""left:-1px; width:-1px;""><script>Combox_OrderType_Init=function(){var _el=Zving.getDom('OrderType');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['desc','降序']);_data.push(['asc','升序']);var combox_OrderType = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_OrderType_Init();}else{Zving.Page.onReady(Combox_OrderType_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">动态信息调用：</td>" & vbCrlf
	Response.Write "<td>容器ID：<input name=""Marquee"" type=""text"" size=""20"" maxlength=""20"" value=""marqueediv"">&nbsp;<font color=""#FF0000"">(必选)不可重复</font><br>" & vbCrlf
	Response.Write "滚动方向：<div id=""Direction_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""Direction"" name=""Direction"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""4"" startvalue=""4""/><input type=""text"" id=""Direction_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""Direction_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""Direction_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""Direction_ul"" style=""left:-1px; width:-1px;""><script>Combox_Direction_Init=function(){var _el=Zving.getDom('Direction');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['4','不滚动']);_data.push(['0','向上滚动']);_data.push(['1','向下滚动']);_data.push(['2','向左滚动']);_data.push(['3','向右滚动']);var combox_Direction = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_Direction_Init();}else{Zving.Page.onReady(Combox_Direction_Init);}</script></div></div></div>" & vbCrlf
	Response.Write "</select>&nbsp;<font color=""#FF0000"">(可选)可设置的值包括:0,1,2,3,""top"",""bottom"",""left"",""right"" (0向上 1向下 2向左 3向右)</font><br>" & vbCrlf
	Response.Write "滚动的步长：<input name=""Step"" type=""text"" size=""5"" maxlength=""5"" value=""2"">&nbsp;<font color=""#FF0000"">(可选,默认值为2,数值越大,滚动越快)</font><br>" & vbCrlf
	Response.Write "容器可视宽度：<input name=""Width"" type=""text"" size=""5"" maxlength=""5"" value=""360"">&nbsp;<font color=""#FF0000"">(可选,默认值为容器初始设置的宽度)</font><br>" & vbCrlf
	Response.Write "容器可视高度：<input name=""Height"" type=""text"" size=""5"" maxlength=""5"" value=""200"">&nbsp;<font color=""#FF0000"">(可选,默认值为容器初始设置的高度)</font><br>" & vbCrlf
	Response.Write "定时器：<input name=""Timer"" type=""text"" size=""5"" maxlength=""5"" value=""30"">&nbsp;<font color=""#FF0000"">(可选,默认值为30,数值越小,滚动的速度越快,1000=1秒,建议不小于20)</font><br>" & vbCrlf
	Response.Write "间歇停顿延迟时间：<input name=""DelayTime"" type=""text"" size=""5"" maxlength=""5"" value=""0"">&nbsp;<font color=""#FF0000"">(可选,默认为0不停顿,1000=1秒)</font><br>" & vbCrlf
	Response.Write "开始时的等待时间：<input name=""WaitTime"" type=""text"" size=""5"" maxlength=""5"" value=""0"">&nbsp;<font color=""#FF0000"">(可选,默认或0为不等待,1000=1秒)</font><br>" & vbCrlf
	Response.Write "间歇滚动间距：<input name=""ScrollStep"" type=""text"" size=""5"" maxlength=""5"" value=""52"">&nbsp;<font color=""#FF0000"">(可选,默认为翻屏宽/高度,该数值与延迟均为0则为鼠标悬停控制,-1禁止鼠标控制)</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
End Sub

Private Sub Label_FlashUse()
	Response.Write "<form action=""?Action=Flash&type=" & Trim(Request("type")) & """ method=""post"" name=""myform"" id=""myform"">" & vbCrlf
	Response.Write "<input type='hidden' name='SkinCode' size='50' id='SkinCode'>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td colspan=""2""><strong>生成" & ChannelTit & "模板Flash调用标签</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td width=""200"" align=""right"">所属模型：</td>" & vbCrlf
	Response.Write "<td><div id=""ChannelID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""ChannelID"" name=""ChannelID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" onchange=""javascript:submit()"" value=""" & ChannelID & """ startvalue=""" & ChannelID & """/><input type=""text"" id=""ChannelID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""ChannelID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ChannelID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ChannelID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ChannelID_Init=function(){var _el=Zving.getDom('ChannelID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Call Exec(Rs,"Select ChannelID,ChannelName from Channel where ChannelType<=1 And ChannelHidden=" & WK_False & " Order By ChannelOrder Asc,ChannelID Desc",2)
	Do While Not Rs.EOF
		Response.Write "_data.push(['" & Rs("ChannelID") & "','" & Rs("ChannelName") & "']);"
		Rs.movenext
	Loop
	Set Rs = Nothing
	Response.Write "var combox_ChannelID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ChannelID_Init();}else{Zving.Page.onReady(Combox_ChannelID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">所属栏目：</td>" & vbCrlf
	Response.Write "<td><div id=""ClassID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""ClassID"" name=""ClassID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""ClassID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""ClassID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ClassID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ClassID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ClassID_Init=function(){var _el=Zving.getDom('ClassID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['0','所有" & ChannelTit & "栏目']);"
	Dim sql3,rs3,n_id,chi
	sql3="Select ClassID,ClassName,ClassParent,ClassParentStr,ClassDepth,ClassChild,AClassID from Class Where ChannelID=" & ChannelID & " and ClassParent=0 Order By ClassOrder Asc,ClassID Asc"
	Call Exec(Rs3,sql3,2)
	Do While Not Rs3.Eof
		n_id=Int(Rs3(0))
		If Int(Rs3(2))=0 Then
			Response.Write "_data.push(['" & n_id & "','" & rs3(1) & "']);"
		Else
			Response.Write "_data.push(['" & n_id & "','"
			For chi=1 To Int(rs3(4))-1
			Response.Write "│"
			Next
			Response.Write "├" & rs3(1) & "']);"
		End If
		Response.Write jsSubClass(ChannelID, n_id)
		Rs3.Movenext
	Loop
	Rs3.Close:Set Rs3=Nothing
	Response.Write "var combox_ClassID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ClassID_Init();}else{Zving.Page.onReady(Combox_ClassID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">最多显示多少张" & ChannelTit & "图片：</td>" & vbCrlf
	Response.Write "<td><input name=""TopNum"" type=""text"" id=""TopNum"" value=""8"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">标题名称最多字符数：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleMaxLen"" type=""text"" id=""TitleMaxLen"" value=""30"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的宽度：</td>" & vbCrlf
	Response.Write "<td><input name=""Width"" type=""text"" id=""Width"" value=""120"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的高度：</td>" & vbCrlf
	Response.Write "<td><input name=""Heitht"" type=""text"" id=""Heitht"" value=""100"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片名称文字背景颜色透明度：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleBgAlpha"" type=""text"" id=""TitleBgAlpha"" value=""70"" size=""5"" maxlength=""3"">&nbsp;&nbsp;<font color=""#FF0000"">0-100值，0表示全部透明，默认值:70</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片名称文字位置：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleBgPosition"" type=""text"" id=""TitleBgPosition"" value=""30"" size=""5"" maxlength=""3"">&nbsp;&nbsp;<font color=""#FF0000"">0表示文字在顶端，1表示文字在底部，2表示文字在顶端浮动，默认值:30</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片过渡效果：</td>" & vbCrlf
	Response.Write "<td><input name=""Tween"" type=""text"" id=""Tween"" value=""2"" size=""5"" maxlength=""3"">&nbsp;&nbsp;<font color=""#FF0000"">0，表示亮度过渡，1表示透明度过渡，2表示模糊过渡，3表示运动模糊过渡，默认值:2</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片自动播放时间：</td>" & vbCrlf
	Response.Write "<td><input name=""AutoPlayTime"" type=""text"" id=""AutoPlayTime"" value=""120"" size=""5"" maxlength=""3"">&nbsp;&nbsp;<font color=""#FF0000"">单位是秒，默认值:120</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片打开窗口：</td>" & vbCrlf
	Response.Write "<td><div id=""WinOpen_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100px;""><input type=""text"" ztype=""select"" id=""WinOpen"" name=""WinOpen"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100px;position:absolute;z-index:-1;"" value=""1"" startvalue=""1""/><input type=""text"" id=""WinOpen_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100px;"" /><a id=""WinOpen_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""WinOpen_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""WinOpen_ul"" style=""left:-1px; width:-1px;""><script>Combox_WinOpen_Init=function(){var _el=Zving.getDom('WinOpen');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['1','新窗口打开']);_data.push(['0','本窗口打开']);var combox_WinOpen = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_WinOpen_Init();}else{Zving.Page.onReady(Combox_WinOpen_Init);}</script></div></div></div>&nbsp;&nbsp;<font color=""#FF0000"">1表示新窗口打开，0表示在当前窗口打开，默认值:1。</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片名称文字颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("TitleTextColor","FFFFFF") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FFFFFF</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片名称文字背景颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("TitleBgColor","000000") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:000000</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片按键默认的颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("BtnDefaultColor","000000") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:000000</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">按键当前的颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("BtnOverColor","000033") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:000033</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">排序方法：</td>" & vbCrlf
	Response.Write "<td><div id=""OrderType_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""OrderType"" name=""OrderType"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""desc"" startvalue=""desc""/><input type=""text"" id=""OrderType_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""OrderType_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""OrderType_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""OrderType_ul"" style=""left:-1px; width:-1px;""><script>Combox_OrderType_Init=function(){var _el=Zving.getDom('OrderType');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['desc','降序']);_data.push(['asc','升序']);var combox_OrderType = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_OrderType_Init();}else{Zving.Page.onReady(Combox_OrderType_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
End Sub

Private Sub Label_FlashqqUse()
	Response.Write "<form action=""?Action=Flashqq&type=" & Trim(Request("type")) & """ method=""post"" name=""myform"" id=""myform"">" & vbCrlf
	Response.Write "<input type='hidden' name='SkinCode' size='50' id='SkinCode'>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td colspan=""2""><strong>生成" & ChannelTit & "模板Flash调用标签</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td width=""185"" align=""right"">所属模型：</td>" & vbCrlf
	Response.Write "<td><div id=""ChannelID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""ChannelID"" name=""ChannelID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" onchange=""javascript:submit()"" value=""" & ChannelID & """ startvalue=""" & ChannelID & """/><input type=""text"" id=""ChannelID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""ChannelID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ChannelID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ChannelID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ChannelID_Init=function(){var _el=Zving.getDom('ChannelID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Call Exec(Rs,"Select ChannelID,ChannelName from Channel where ChannelType<=1 And ChannelHidden=" & WK_False & " Order By ChannelOrder Asc,ChannelID Desc",2)
	Do While Not Rs.EOF
		Response.Write "_data.push(['" & Rs("ChannelID") & "','" & Rs("ChannelName") & "']);"
		Rs.movenext
	Loop
	Set Rs = Nothing
	Response.Write "var combox_ChannelID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ChannelID_Init();}else{Zving.Page.onReady(Combox_ChannelID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">所属栏目：</td>" & vbCrlf
	Response.Write "<td><div id=""ClassID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""ClassID"" name=""ClassID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""ClassID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""ClassID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ClassID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ClassID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ClassID_Init=function(){var _el=Zving.getDom('ClassID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['0','所有" & ChannelTit & "栏目']);"
	Dim sql3,rs3,n_id,chi
	sql3="Select ClassID,ClassName,ClassParent,ClassParentStr,ClassDepth,ClassChild,AClassID from Class Where ChannelID=" & ChannelID & " and ClassParent=0 Order By ClassOrder Asc,ClassID Asc"
	Call Exec(Rs3,sql3,2)
	Do While Not Rs3.Eof
		n_id=Int(Rs3(0))
		If Int(Rs3(2))=0 Then
			Response.Write "_data.push(['" & n_id & "','" & rs3(1) & "']);"
		Else
			Response.Write "_data.push(['" & n_id & "','"
			For chi=1 To Int(rs3(4))-1
			Response.Write "│"
			Next
			Response.Write "├" & rs3(1) & "']);"
		End If
		Response.Write jsSubClass(ChannelID, n_id)
		Rs3.Movenext
	Loop
	Rs3.Close:Set Rs3=Nothing
	Response.Write "var combox_ClassID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ClassID_Init();}else{Zving.Page.onReady(Combox_ClassID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">最多显示多少张" & ChannelTit & "图片：</td>" & vbCrlf
	Response.Write "<td><input name=""TopNum"" type=""text"" id=""TopNum"" value=""8"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">标题名称最多字符数：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleMaxLen"" type=""text"" id=""TitleMaxLen"" value=""30"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的宽度：</td>" & vbCrlf
	Response.Write "<td><input name=""Width"" type=""text"" id=""Width"" value=""120"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片的高度：</td>" & vbCrlf
	Response.Write "<td><input name=""Heitht"" type=""text"" id=""Heitht"" value=""100"" size=""5"" maxlength=""3""> 像素</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">间隔时间：</td>" & vbCrlf
	Response.Write "<td><input name=""Times"" type=""text"" id=""Times"" value=""4000"" size=""5"" maxlength=""10"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:4000</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">文本链接的文字大小：</td>" & vbCrlf
	Response.Write "<td><input name=""Sizes"" type=""text"" id=""Sizes"" value=""12"" size=""5"" maxlength=""10"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:12px</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">文本链接的文字是否加粗：</td>" & vbCrlf
	Response.Write "<td><input name=""IsBold"" type=""text"" id=""IsBold"" value=""yes"" size=""5"" maxlength=""5"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:yes</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">文本链接的颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("TxtColor","FF7E00") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FF7E00</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">文本链接左间距：</td>" & vbCrlf
	Response.Write "<td><input name=""TxtLeft"" type=""text"" id=""TxtLeft"" value=""19"" size=""5"" maxlength=""5"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:19</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮未选中时文本颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("UmColor","FFFFFF") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FFFFFF</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮未选中时透明度：</td>" & vbCrlf
	Response.Write "<td><input name=""NubTouMing"" type=""text"" id=""NubTouMing"" value=""40"" size=""5"" maxlength=""5"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:40</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮选中时透明度：</td>" & vbCrlf
	Response.Write "<td><input name=""HoverTouMing"" type=""text"" id=""HoverTouMing"" value=""100"" size=""5"" maxlength=""5"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:100</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮未选中时背景颜色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("BtnBg","FF7E00") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FF7E00</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮选中时背景色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("BgNub","FFFFFF") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FFFFFF</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">数字按钮选中时文本色：</td>" & vbCrlf
	Response.Write "<td>" & ShowColor("HoverColor","FF0000") & "&nbsp;&nbsp;<font color=""#FF0000"">默认值:FF0000</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">右键菜单显示文字：</td>" & vbCrlf
	Response.Write "<td><input name=""Rname"" type=""text"" id=""Rname"" value=""开心网络"" size=""10"" maxlength=""20"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:开心网络</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">右键菜单链接：</td>" & vbCrlf
	Response.Write "<td><input name=""Rlink"" type=""text"" id=""Rlink"" value=""http://www.kaixin100.cn"" size=""30"" maxlength=""50"">&nbsp;&nbsp;<font color=""#FF0000"">默认值:http://www.kaixin100.cn</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">排序方法：</td>" & vbCrlf
	Response.Write "<td><div id=""OrderType_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""OrderType"" name=""OrderType"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""desc"" startvalue=""desc""/><input type=""text"" id=""OrderType_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""OrderType_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""OrderType_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""OrderType_ul"" style=""left:-1px; width:-1px;""><script>Combox_OrderType_Init=function(){var _el=Zving.getDom('OrderType');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['desc','降序']);_data.push(['asc','升序']);var combox_OrderType = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_OrderType_Init();}else{Zving.Page.onReady(Combox_OrderType_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
End Sub

Private Sub Label_ClassUse()
	Response.Write "<form action=""?Action=Class&type=" & Trim(Request("type")) & """ method=""post"" name=""myform"" id=""myform"">" & vbCrlf
	Response.Write "<input type='hidden' name='SkinCode' size='50' id='SkinCode'>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td colspan=""2""><strong>生成" & ChannelTit & "模板栏目调用标签</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td width=""140"" align=""right"">所属模型：</td>" & vbCrlf
	Response.Write "<td><div id=""ChannelID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""ChannelID"" name=""ChannelID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" onchange=""javascript:submit()"" value=""" & ChannelID & """ startvalue=""" & ChannelID & """/><input type=""text"" id=""ChannelID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""ChannelID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ChannelID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ChannelID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ChannelID_Init=function(){var _el=Zving.getDom('ChannelID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Call Exec(Rs,"Select ChannelID,ChannelName from Channel where ChannelType<=1 And ChannelHidden=" & WK_False & " Order By ChannelOrder Asc,ChannelID Desc",2)
	Do While Not Rs.EOF
		Response.Write "_data.push(['" & Rs("ChannelID") & "','" & Rs("ChannelName") & "']);"
		Rs.movenext
	Loop
	Set Rs = Nothing
	Response.Write "var combox_ChannelID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ChannelID_Init();}else{Zving.Page.onReady(Combox_ChannelID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">所属栏目：</td>" & vbCrlf
	Response.Write "<td><div id=""ClassID_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100%;""><input type=""text"" ztype=""select"" id=""ClassID"" name=""ClassID"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100%;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""ClassID_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100%;"" /><a id=""ClassID_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""ClassID_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""ClassID_ul"" style=""left:-1px; width:-1px;""><script>Combox_ClassID_Init=function(){var _el=Zving.getDom('ClassID');if(_el._components){return true;}var  _data=[];var  _DataSource;"
	Response.Write "_data.push(['0','所有" & ChannelTit & "栏目']);"
	Dim sql3,rs3,n_id,chi
	sql3="Select ClassID,ClassName,ClassParent,ClassParentStr,ClassDepth,ClassChild,AClassID from Class Where ChannelID=" & ChannelID & " and ClassParent=0 Order By ClassOrder Asc,ClassID Asc"
	Call Exec(Rs3,sql3,2)
	Do While Not Rs3.Eof
		n_id=Int(Rs3(0))
		If Int(Rs3(2))=0 Then
			Response.Write "_data.push(['" & n_id & "','" & rs3(1) & "']);"
		Else
			Response.Write "_data.push(['" & n_id & "','"
			For chi=1 To Int(rs3(4))-1
			Response.Write "│"
			Next
			Response.Write "├" & rs3(1) & "']);"
		End If
		Response.Write jsSubClass(ChannelID, n_id)
		Rs3.Movenext
	Loop
	Rs3.Close:Set Rs3=Nothing
	Response.Write "var combox_ClassID = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_ClassID_Init();}else{Zving.Page.onReady(Combox_ClassID_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">显示" & ChannelTit & "栏目数：</td>" & vbCrlf
	Response.Write "<td><input name=""TopNum"" type=""text"" id=""TopNum"" value=""8"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">标题名称最多字符数：</td>" & vbCrlf
	Response.Write "<td><input name=""TitleMaxLen"" type=""text"" id=""TitleMaxLen"" value=""30"" size=""5"" maxlength=""3""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">图片打开窗口：</td>" & vbCrlf
	Response.Write "<td><div id=""newindow_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:100px;""><input type=""text"" ztype=""select"" id=""newindow"" name=""newindow"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:100px;position:absolute;z-index:-1;"" value=""0"" startvalue=""0""/><input type=""text"" id=""newindow_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:100px;"" /><a id=""newindow_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""newindow_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""newindow_ul"" style=""left:-1px; width:-1px;""><script>Combox_newindow_Init=function(){var _el=Zving.getDom('newindow');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['0','本窗口打开']);_data.push(['1','新窗口打开']);var combox_newindow = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_newindow_Init();}else{Zving.Page.onReady(Combox_newindow_Init);}</script></div></div></div>&nbsp;&nbsp;<font color=""#FF0000"">1表示新窗口打开，0表示在当前窗口打开，默认值:0。</font></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">排序方法：</td>" & vbCrlf
	Response.Write "<td><div id=""OrderType_outer"" ztype=""select"" class=""z-combox"" style=""display:inline-block; *zoom: 1;*display: inline;vertical-align:middle;height:auto;width:auto;position:relative;border:none 0;margin:0;padding:0;white-space: nowrap;"" _style=""width:80px;""><input type=""text"" ztype=""select"" id=""OrderType"" name=""OrderType"" tabindex=""-1"" autocomplete=""off"" class=""inputText"" style=""width:80px;position:absolute;z-index:-1;"" value=""desc"" startvalue=""desc""/><input type=""text"" id=""OrderType_textField"" autocomplete=""off"" class=""inputText"" style=""vertical-align:middle; cursor:default;width:80px;"" /><a id=""OrderType_spinner"" class=""z-combox-spinner"" style=""position:relative; left:-17px; margin-right:-15px; cursor:pointer; width:13px; height:15px;vertical-align:middle;""><b></b></a><div id=""OrderType_list"" class=""optgroup"" style=""text-align:left;display:none;""><div id=""OrderType_ul"" style=""left:-1px; width:-1px;""><script>Combox_OrderType_Init=function(){var _el=Zving.getDom('OrderType');if(_el._components){return true;}var  _data=[];var  _DataSource;_data.push(['desc','降序']);_data.push(['asc','升序']);var combox_OrderType = new Zving.Selector({el:_el,data:_data,DataSource:_DataSource});};if(Zving.Page.isReady){Combox_OrderType_Init();}else{Zving.Page.onReady(Combox_OrderType_Init);}</script></div></div></div></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td align=""right"">列表调用样式名称：</td>" & vbCrlf
	Response.Write "<td><input name=""StyleName"" type=""text"" id=""StyleName"" value=""showlist"" size=""15"" maxlength=""20""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
End Sub
%>